home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_06_(08-1984).d64 / add & sub.p (.txt) next >
Commodore BASIC  |  2019-04-13  |  7KB  |  216 lines
  1. 500 PRINT"[147]                                       [146]"
  2. 501 PRINT"                                       [146]"
  3. 502 FORPA=1TO800:NEXT
  4. 505 FORT=1TO14
  5. 510 PRINT"[145]";TAB(T);"[157] ADDING[146]":FORPA=1TO50:NEXTPA: NEXT
  6. 511 FORPA=1TO1000:NEXTPA
  7. 515 PRINT"                                       [146]"
  8. 520 PRINT"                                       [146]"
  9. 525 FORT=1TO15
  10. 530 PRINT"[145]";TAB(T);"[157] AND[146]":FORPA=1TO50:NEXTPA:NEXT
  11. 540 FORPA=1TO1000:NEXTPA
  12. 550 PRINT"                                       [146]"
  13. 560 PRINT"                                       [146]"
  14. 570 FORT=1TO12
  15. 580 PRINT"[145]";TAB(T);"[157] SUBTRACTING[146]":FORPA=1TO50:NEXTPA:NEXT
  16. 590 FORPA=1TO1000:NEXT
  17. 600 PRINT"                                       [146]"
  18. 610 PRINT"                                       [146]"
  19. 620 FORT=1TO10
  20. 630 PRINT"[145]";TAB(T);"[157] SIGNED NUMBERS[146]":FORPA=1TO50:NEXTPA:NEXT
  21. 635 PRINT"                                       [146]"
  22. 640 FORPA=1TO6000:NEXT
  23. 700 REM
  24. 710 REM ** ADDING AND SUBTRACTING                  SIGNED NUMBERS **
  25. 720 REM
  26. 730 REM BY: MICHAEL SAMORODNY!
  27. 735 REM
  28. 740 REM COPYRIGHT MAY 1980
  29. 750 REM
  30. 1000 PRINT"[147]HELLO, MY NAME IS PET[146]. TYPE IN"
  31. 1005 PRINT"YOUR NAME AND PRESS RETURN[146]"
  32. 1010 INPUT"";NAME$
  33. 1020 PRINT"[147]HELLO, ";NA$;"!":PRINT"LET'S LEARN ABOUT ADDING AND"
  34. 1030 PRINT"SUBTRACTING SIGNED NUMBERS!"
  35. 1040 FORPA=1TO6000:NEXT
  36. 1050 PRINT"[147]THE FIRST THING YOU MUST LEARN IS WHAT":PRINT"TO DO ";
  37. 1060 PRINT"WITH ALL THOSE MESSY[146] SIGNS."
  38. 1070 FORPA=1TO6000:NEXT
  39. 1080 PRINT"[147]LET'S LOOK AT THE FOLLOWING EXAMPLE:"
  40. 1090 PRINT"4-+2+-21++36--10":FORPA=1TO5500:NEXT
  41. 1100 PRINT"BRACKETS MAKE IT CLEARER,":FORPA=1TO2000:NEXT
  42. 1110 PRINT"4-(+2)+(-21)+(+36)-(-10)":FORPA=1TO5000:NEXT
  43. 1120 PRINT"BUT THE NUMBER OF SIGNS STILL MAKE IT":PRINT"CONFUSING."
  44. 1130 FORPA=1TO5000:NEXT
  45. 1140 PRINT"[147]NOW LET'S LOOK AT SOME RULES FOR":PRINT"SIMPLIFYING SIGNS."
  46. 1150 FORPA=1TO4000:NEXT:GOSUB5000
  47. 1160 PRINT"[147]HERE IS A SHORT QUIZ TO SEE IF YOU"
  48. 1170 PRINT"UNDERSTAND HOW TO SIMPLIFY SIGNS":PRINT
  49. 1180 PRINTNA$;".":FORPA=1TO4500:NEXT
  50. 1190 PRINT"[147]SIMPLIFY THE SIGNS IN THIS QUESTION:"
  51. 1200 PRINT"-32--4+-10-+71++3":FORPA=1TO2500:NEXT
  52. 1210 PRINT"JUST TYPE IN THE SIMPLIFIED VERSION OF"
  53. 1220 PRINT"THE ABOVE AND CHECK YOUR ANSWER
  54. 1225 [153][163]14);"TAB(TAB(TAB(TAB(TAB("
  55. 1230 [153]"CAREFULLY BEFORE HITTING RETURNWAIT."
  56. 1240 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  57. 1245 [153]"USE THE INSTWAIT KEY AT THE UPPER RIGHT OF"
  58. 1246 [153]"        DEL WAIT"
  59. 1247 [153]"THE KEYBOARD TO ERASE MISTAKES."
  60. 1250 [133] A1$
  61. 1260 [139]A1$[178]"-32+4-10-71+3"[167] [153]"CORRECT ";NA$;"!WAIT":[137]1275
  62. 1270 [141]6000
  63. 1275 [129]PA[178]1[164]2000:[130]
  64. 1280 [153]"LOADHERE IS A SECOND QUESTION FOR YOU TO"
  65. 1290 [153]"SIMPLIFY. JUST DO THE SAME AS FOR THE ":[153]"LAST ONE."
  66. 1300 [153]" +6--47++1.6-+487+-1"
  67. 1310 [133]A2$
  68. 1320 [139]A2$[178]"6+47+1.6-487-1"[167][153]"VERY GOOD, ";NA$;"!!WAIT":[137]1340
  69. 1330 [141]6000
  70. 1340 [129]PA[178]1[164]2500:[130]
  71. 1350 [153]"LOADYOU SEEM TO UNDERSTAND SIMPLIFICATION "
  72. 1360 [153]"FAIRLY WELL, ";NA$;"."
  73. 1370 [153]"LET'S MOVE ON TO LEARNING SOME RULES"
  74. 1380 [153]"FOR ADDING AND SUBTRACTING THESE SIGNED":[153]"NUMBERS."
  75. 1390 [129]PA[178]1[164]7000:[130]PA:[141]7000
  76. 1400 [153]"LOADALL RIGHT, ";NA$;","
  77. 1410 [153]"LET'S MOVE ON TO A SORT OF TEST TO SEE"
  78. 1420 [153]"HOW YOU ARE PROGRESSING!"
  79. 1430 [129] PA[178]1[164]4500:[130]
  80. 1440 [153]"LOAD            EXAMINATION                WAIT"
  81. 1450 [153]"HOW MANY QUESTIONS WOULD YOU LIKE?"
  82. 1460 [153]"TYPE IN THE NUMBER AND PRESS RETURNWAIT."
  83. 1470 [133]Z
  84. 1471 [139]Z[178]0[167][153]"SORRY, YOU HAVE TO DO AT LEAST ONE!":[137]1450
  85. 1474 [129]QU[178]1[164]Z
  86. 1475 [153]""
  87. 1477 [129]Y[178]1[164]21
  88. 1480 [153]"                                     ":[130]
  89. 1500 [153]"QUESTION ";QU;":"
  90. 1510 Q(1)[178][181]([187](1)[172]10[170]1)
  91. 1520 Q(2)[178][181]([187](1)[172]50[170]1)
  92. 1530 Q(3)[178][181]([187](1)[172]100[170]1)
  93. 1540 Q(4)[178][181]([187](1)[172]25[170]1)
  94. 1550 Q(5)[178][181]([187](1)[172]75[170]1)
  95. 1560 [129]G[178]1[164]5
  96. 1570 X[178][181]([187](1)[172]2[170]1)
  97. 1575 [139]X[178]1[167]Q(G)[178]Q(G)[172][171]1
  98. 1580 [130] G
  99. 1585 [153]"";Q(1);"+";Q(2);"-";Q(3);"+";Q(4);"-";Q(5)
  100. 1586 [153]"DO YOU WANT TO SEE ANY OF THE RULES":[153]"AGAIN?"
  101. 1587 [153]"(Y OR N)"
  102. 1588 [161] M$:[139] M$[178]""[167] 1588
  103. 1589 [139] M$[178]"Y" [167] [141] 9000:[141]9500:[137]1585
  104. 1590 [139]M$[179][177]"N"[167]1588
  105. 1599 [153]"TYPE IN YOUR ANSWER HERE AND PRESS":[153]"RETURNWAIT":[133]ANS
  106. 1600 V[178]Q(1)[170]Q(2)[171]Q(3)[170]Q(4)[171]Q(5)
  107. 1610 [139] ANS[178]V [167][141]8000
  108. 1620 [139]ANS[179][177]V[167] [141] 8500
  109. 1630 [130]QU
  110. 1640 [153]"LOADWELL THAT'S THE END OF THE QUIZ,":[153]NA$;"."
  111. 1650 [153]"YOUR SCORE IS ";SC;"(null)";Z
  112. 1655 U[178][181](SC[173]Z[172]100[170].5)
  113. 1660 [153]"THAT MAKES AN AVERAGE OF";U;"CMD%WAIT":[129]PA[178]1[164]7000:[130]PA
  114. 1670 [139] U[177][178]75[167][141]6600
  115. 1680 [139]U[177][178]60 [167] [141] 6700
  116. 1685 [139]U[177][178]50[175]U[179]60[167][141]6800
  117. 1690 [153]"LOADI AM TERRIBLY SORRY, ";NA$;"WAIT,"
  118. 1700 [153]"BUT YOU HAVE FAILED THIS COURSE."
  119. 1710 [153]"I THINK YOU SHOULD SEE YOUR MATH TEACHER"
  120. 1720 [153]"FOR FURTHER INSTRUCTION BEFORE"
  121. 1730 [153]"REATTEMPTING THIS COURSE."
  122. 1735 [153]"THANK YOU FOR YOUR PATIENCE!"
  123. 1740 [137]6630
  124. 4999 [128]
  125. 5000 [153]"LOAD";
  126. 5010 STS$[178]"***************************************"
  127. 5020 [153]STS$
  128. 5030 [129]  S[178]1[164]22
  129. 5040 [153]"*";[166]37);"*":[130] S
  130. 5050 [153]STS$
  131. 5060 [153]"";
  132. 5070 [153]"      HOW TO SIMPLIFY SIGNSWAIT"
  133. 5080 [153]"1. IF THERE ARE TWO '+' SIGNS IN A"
  134. 5090 [153]" ROW, REPLACE THEM BY A SINGLE '+'":[153]" SIGN."
  135. 5100 [153]" 2. IF THERE ARE TWO '-' SIGNS IN A"
  136. 5200 [153]" ROW, REPLACE THEM BY A SINGLE '+'":[153]" SIGN."
  137. 5300 [153]" 3. IF THERE IS A '+' SIGN FOLLOWED"
  138. 5400 [153]" BY A '-' SIGN, REPLACE THEM BY A"
  139. 5500 [153]" SINGLE '-' SIGN.
  140. 5510 PRINT" 4. OMIT A LEADING POSITIVE SIGN"
  141. 5520 PRINT" EG. +2-3 BECOMES 2-3.
  142. 5600 [153]" PRESS THE SPACE BARWAIT TO CONTINUE."
  143. 5700 [146]59410,4,4:[142]
  144. 6000 [153]"SORRY, ";NA$;" THAT'S WRONG.":[129]PA[178]1[164]2500:[130]
  145. 6005 W[178]W[170]1:[139]W[178]2[167][141]6500
  146. 6010 [153]"WOULD YOU LIKE TO LOOK AT THE RULES
  147. 6020 PRINT"AGAIN (Y OR N)"
  148. 6021 GETY1$:IFY1$=""THEN6021
  149. 6030 IF Y1$="Y"THEN GOSUB5000:GOTO6040
  150. 6035 IFY1$<>"N"THEN6021
  151. 6040 RETURN
  152. 6500 PRINT"[147]YOU HAVE ANSWERED BOTH QUESTIONS":PRINT"INCORRECTLY ";NA$
  153. 6510 PRINT"PERHAPS YOU SHOULD GET SOME ADVICE FROM"
  154. 6520 PRINT"YOUR TEACHER BEFORE RETURNING TO THIS":PRINT"PROGRAM.":END
  155. 6600 PRINT"[147]CONGRATULATIONS, ";NA$;"!!![146]"
  156. 6610 PRINT"YOU PASSED THIS COURSE WITH HONOURS!"
  157. 6620 PRINT"YOU HAVE GRADUATED FROM THE P E T[146] SCHOOL":PRINT"OF ARITHMETIC!"
  158. 6630 PRINT"           T H E   E N D[146]"
  159. 6640 END
  160. 6700 PRINT"[147]CONGRATULATIONS, ";NA$;"!"
  161. 6710 PRINT"YOU HAVE PASSED THIS LESSON WITH"
  162. 6720 PRINT"FLYING COLOURS[146]!!"
  163. 6730 PRINT"BRAG TO YOUR TEACHER ABOUT YOUR GREAT"
  164. 6740 PRINT"ACCOMPLISHMENT!"
  165. 6750 GOTO6630
  166. 6800 PRINT"[147]YOU DID FAIRLY WELL, ";NA$;","
  167. 6810 PRINT"BUT PERHAPS YOU COULD STILL USE A ":PRINT"LITTLE HELP."
  168. 6820 PRINT"HAVE YOUR TEACHER EVALUATE YOUR PROGRESS"
  169. 6830 PRINT"AND IF NECESSARY COME SEE ME AGAIN FOR"
  170. 6840 PRINT"ANOTHER LESSON."
  171. 6850 GOTO 6630
  172. 7000 PRINT"[147]";
  173. 7020 PRINTSTS$
  174. 7030 FOR  S=1TO22
  175. 7040 PRINT"*";SPC(37);"*":NEXT S
  176. 7050 PRINTSTS$
  177. 7060 PRINT"";
  178. 7070 PRINT" RULES FOR ADDING AND SUBTRACTING[146]"
  179. 7080 PRINT"1. SIMPLIFY ALL[146] SIGNS."
  180. 7090 PRINT"2. ADD OR SUBTRACT FROM LEFT":PRINT"TO RIGHT."
  181. 7100 PRINT"3. IF THE SIGNS OF THE NUMBERS ARE"
  182. 7110 PRINT"THE SAME, WRITE DOWN THEIR SIGN ":PRINT"AND ADD THEM UP."
  183. 7120 PRINT"4. IF THE SIGNS ARE DIFFERENT,"
  184. 7130 PRINT"IGNORE THEM, PUT DOWN THE SIGN "
  185. 7140 PRINT"OF THE LARGER ONE AND SUBTRACT":PRINT"THE NUMBERS."
  186. 7145 PRINT"5. OMIT A LEADING '+' SIGN."
  187. 7150 PRINT"PRESS THE SPACE BAR[146] TO CONTINUE."
  188. 7160 WAIT59410,4,4:RETURN
  189. 8000 PRINT""
  190. 8010 H$(1)="CORRECT!":H$(2)="EXCELLENT!!":H$(3)="VERY GOOD!":H$(4)="RIGHT ON!!"
  191. 8015 P=INT(RND(1)*4+1)
  192. 8020 FORB=1TO20
  193. 8030 PRINTH$(P):FORPA=1TO20:NEXTPA
  194. 8040 PRINT"[145]";H$(P);"[145]":NEXTB
  195. 8050 SC=SC+1
  196. 8060 RETURN
  197. 8500 PRINT"SORRY, ";NA$;", THAT'S WRONG."
  198. 8510 FORPA=1TO1000:NEXT
  199. 8520 PRINT"THE CORRECT ANSWER WAS ";V
  200. 8530 FORPA=1TO3000:NEXT
  201. 8540 RETURN
  202. 9000 PRINT"[147]WHICH SET OF RULES DO YOU WANT TO SEE?"
  203. 9010 PRINT"1. SIMPLIFYING SIGNS"
  204. 9020 PRINT"2. ADD AND SUB RULES"
  205. 9030 PRINT"JUST TYPE THE NUMBER OF THE SET OF RULES"
  206. 9040 PRINT"YOU WANT."
  207. 9050 GET I:IF I=1THEN GOSUB5000:RETURN
  208. 9060 IFI=2THEN GOSUB 7000:RETURN
  209. 9070 IFI<>1ORI<>2THEN9050
  210. 9500 PRINT"[147]            EXAMINATION                [146]"
  211. 9510 PRINT""
  212. 9520 FORY=1TO21
  213. 9530 PRINT"                                     ":NEXT
  214. 9540 PRINT"QUESTION ";QU;":"
  215. 9550 RETURN
  216.